home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing7.mod < prev    next >
Text File  |  1993-01-22  |  700b  |  23 lines
  1. MODULE MitProcs; (* geschickt *)
  2. IMPORT
  3.   io;
  4. VAR
  5.   Jahr, Monat, Tag, Stunde, Minute: LONGINT;
  6. PROCEDURE GetNumber (Str: ARRAY OF CHAR; Min, Max: LONGINT): LONGINT;
  7. VAR
  8.   Number: LONGINT;
  9. BEGIN
  10.   REPEAT
  11.     io.WriteString (Str);
  12.   UNTIL io.ReadInt (Number) AND (Number >= Min) AND (Number <= Max);
  13.   RETURN Number;
  14. END GetNumber;
  15. BEGIN
  16.   Jahr   := GetNumber ("Bitte Jahr eingeben:   ", 0, 2100);
  17.   Monat  := GetNumber ("Bitte Monat eingeben:  ", 1,   12);
  18.   Tag    := GetNumber ("Bitte Tag eingeben:    ", 1,   31);
  19.   Stunde := GetNumber ("Bitte Stunde eingeben: ", 0,   23);
  20.   Minute := GetNumber ("Bitte Minute eingeben: ", 0,   59);
  21.   (* ... der Rest, der diese Daten verarbeitet *)
  22. END MitProcs.
  23.